home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / A-Monthly Disks / (c)aad.d64 / quick menu (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  2KB  |  54 lines
  1. 1 REM (null)(null)
  2. 3 POKE 775,191
  3. 5 REM (null)(null)
  4. 7 POKE 775,191
  5. 10 PRINT"[147]"CHR$(8):PRINTCHR$(142)
  6. 50 PRINT"[147]":POKE 53280,6:POKE53281,13
  7. 52 PRINT"           BASIC PHOTOGRAPHY"
  8. 54 PRINT"           BY STEVE WILLIAMS"
  9. 56 PRINT" THIS PRODUCT IS FREEWARE/PUBLIC DOMAIN."
  10. 58 PRINT" IN ORDER TO SUPPORT THE WRITING OF MORE"
  11. 60 PRINT"[145] EDUCATIONAL MATERIALS SUCH AS THIS,"
  12. 62 PRINT" PLEASE SUPPORT THE FREEWARE CONCEPT."
  13. 64 PRINT:PRINT" IF YOU KEEP AND USE THIS PROGRAM, YOU"
  14. 66 PRINT" ARE REQUESTED TO SEND $2.00 TO THE"
  15. 68 PRINT" AUTHOR. THERE IS NO OBLIGATION EXCEPT"
  16. 70 PRINT" THAT OFF YOUR GOOD WILL. THIS IS A LOT"
  17. 71 PRINT" PROGRAMMING FOR A MERE $2.00."
  18. 72 PRINT:PRINT"            STEVE WILLIAMS"
  19. 74 PRINT"            102 N. ANDREWS"
  20. 76 PRINT"            WACO, TEXAS 76706"
  21. 77 PRINT"         [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  22. 78 PRINT"         PRESS ANY KEY FOR MENU"
  23. 90 GETA$:IFA$=""THEN90
  24. 110 PRINT"[147]":POKE53281,8:POKE53280,11
  25. 112 PRINT"        [144] [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  26. 114 PRINT"         BASIC PHOTOGRAPHY MENU"
  27. 116 PRINT"  1 - ZONE 1  (APERTURE)"
  28. 118 PRINT"  2 - ZONE 2  (SHUTTER SPEEDS)"
  29. 120 PRINT"  3 - ZONE 3  (EXPOSURE)"
  30. 122 PRINT"  4 - ZONE 4  (DEPTH OF FIELD)"
  31. 124 PRINT"  5 - ZONE 5  (FLASH CALCULATIONS)"
  32. 126 PRINT"  6 - PHOTOGRAPHY DEMONSTRATION"
  33. 127 PRINT"         (A COLORFUL PROGRAM OF CAMERAS"
  34. 128 PRINT"         AND PICTURES THAT CAN BE"
  35. 129 PRINT"         PERSONALIZED BY YOU AS AN"
  36. 130 PRINT"         ATTENTION GETTER FOR A PHOTO"
  37. 131 PRINT"         SHOW BY A SCHOOL OR CLUB.)"
  38. 133 PRINT" [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  39. 135 PRINT"  PRESS NUMBER TO LOAD DESIRED PROGRAM "
  40. 139 POKE198,0
  41. 140 GETA$:IFA$=""THEN140
  42. 150 ONVAL(A$)GOTO161,162,163,164,165,166
  43. 152 GOTO140
  44. 161 L$="ZONE 1":GOTO180
  45. 162 L$="ZONE 2":GOTO180
  46. 163 L$="ZONE 3":GOTO180
  47. 164 L$="ZONE 4":GOTO180
  48. 165 L$="ZONE 5":GOTO180
  49. 166 L$="PHOTO DEMO":GOTO180
  50. 180 POKE198,4
  51. 182 PRINT"[147]LOAD"CHR$(34)L$;:PRINTCHR$(34)",8";
  52. 184 POKE631,13:POKE632,82:POKE633,117:POKE634,13
  53. 190 END
  54.